1 SYS65517:AA=PEEK(781):GOTO62
2 DIML(35),M(6,6),N$(35),R$(6):FORX=1TO6:FORY=1TO6:READM(X,Y):NEXTY,X
3 FORX=1TO29:READN$(X):NEXT:FORX=1TO29:READL(X):NEXT:FORX=1TO6:READR$(X):NEXT
4 L=2
5 L5=36879:IFAA=40THENL5=53281
6 IFL=1THENPOKEL5,104:PRINT""
7 IFL=2THENPOKEL5,125:PRINT"[144]"
8 IFL=3THENPOKEL5,62:PRINT"[144]"
9 IFL=4THENPOKEL5,47:PRINT"[144]"
10 IFL=5THENPOKEL5,11:PRINT""
11 IFL=6THENPOKEL5,94:PRINT"[144]"
12 PRINT"[147][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197]":PRINT"YOU ARE IN THE":PRINTR$(L)
13 PRINT"YOU CAN SEE"
14 FORX=1TO29:IFL(X)=LTHENPRINTN$(X)
15 NEXT
16 PRINT"[197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197]":GOTO66
17 PRINT"WHAT IS YOUR":INPUT"COMMAND";A$
18 FORX=1TOLEN(A$):IFMID$(A$,X,1)=" "ANDLEN(A$)>X+1THENB$=MID$(A$,X+1,2)
19 NEXT
20 IFLEN(A$)>1THENA$=LEFT$(A$,2)
21 V$="GOGEPUTAHIINLO"
22 N$="NOSOEAWEUPDOBECHTAPITHSEGRMUBUARSWSHMASPOIDRTRLEBONECARISP"
23 FORY=1TOLEN(V$):IFMID$(V$,Y,2)=A$THENV=Y+1:V=V/2
24 NEXT:FORX=1TOLEN(N$):IFMID$(N$,X,2)=B$THENN=X+1:N=N/2
25 NEXT:ONVGOTO26,29,39,29,46,53,55,39
26 IFN>6THENPRINT"YOU CAN'T":GOTO17
27 FORX=1TO6:IFN=XANDM(L,N)>0THENL=M(L,N)
28 NEXT:GOTO5
29 IFN=7ORN=9ORN=11THENPRINT"YOU CAN'T":PRINT"[197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197]":GOTO17
30 IFN=14ORN=15ORN=22ORN=23THENPRINT"YOU CAN'T":PRINT"[197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197]"
31 IFN=14ORN=15ORN=22ORN=23THEN17
32 IFB$="AR"THENL(16)=0
33 IFN=24THENPRINT"YOU CAN'T":PRINT"[197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197]":GOTO17
34 IFN=26THENPRINT"CAN'T, IT RAN AWAY":PRINT"[197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197]":L(26)=10
35 IFN=26THEN17
36 IFN=27THENPRINT"TOO HOT":PRINT"[197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197]":GOTO17
37 FORX=7TO29:IFN=XANDL(X)=LTHENL(X)=0
38 NEXT:GOTO5
39 IFN=24ANDL=5ANDL(23)=10THENPRINT"[147]YOU MADE IT!!":END
40 IFL=5ANDL(23)=LANDN=24THENPRINT"[147]TROLL PUTS YOU":PRINT"IN THE DUNGEON."
41 IFL=5ANDL(23)=LANDN=24THENPRINT"   GAME OVER":END
42 FORX=1TO29:IFN=XANDL(N)<>0THENNEXT
43 IFL(N)<>0THENPRINT"DON'T HAVE IT":PRINT"[197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197]":GOTO17
44 FORX=1TO29:IFN=XANDL(X)=0THENL(X)=L
45 NEXT:PRINT"[197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197]":GOTO17
46 IFL<>5ORN<>23THENPRINT"HURT YOUR HAND":GOTO17
47 IFL=5ANDN=23ANDL(17)<>0THENPRINT"HURT YOUR HAND"
48 IFL=5ANDN=23ANDL(17)=0ANDL(28)<>0THENPRINT"YOU CAN'T"
49 IFL=5ANDN=23ANDL(17)=0ANDL(28)=0ANDL(25)<>0THENPRINT"YOU CAN'T"
50 IFL=5ANDN=23ANDL(17)=0ANDL(28)=0ANDL(25)=0THENPRINT"THE TROLL FLEES"
51 IFL=5ANDN=23ANDL(17)=0ANDL(28)=0ANDL(25)=0THENL(23)=10
52 GOTO17
53 PRINT"[147]YOU ARE CARRYING":FORX=1TO29:IFL(X)=0THENPRINTN$(X)""
54 NEXT:FORI=1TO1500:NEXT:GOTO6
55 IFN=9ANDL=1THENL(28)=L:GOTO12
56 IFN<>14THEN59
57 PRINT"THE KEY TO WHAT YOU":PRINT"SEEK IS HIDDEN WHERE"
58 PRINT"THE KING SLEEPS":GOTO17
59 PRINT"YOU CAN SEE":FORX=1TO29:IFN=XANDL(X)=L THEN61
60 FORX=1TO29:IFN=XANDL(X)=L THEN61
61 NEXT:FORI=1TO1000:NEXT:GOTO12
62 PRINT"[147][144]YOU ARE IN A CASTLE":PRINT"GUARDED BY AN EVIL"
63 PRINT"TROLL.":PRINT"CAN YOU GET OUT?":PRINT"HIT ANY KEY"
64 GETZ$:IFZ$=""THEN64
65 GOTO2
66 PRINT"EXITS ARE:":FORY=1TO6:IFM(L,Y)>0THENPRINTN$(Y)
67 NEXT:PRINT"[197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197]":GOTO17
68 REM M(X)
69 DATA0,,,3,,2,4,5,6,,1,,,,1,,,6,,2,,,,,2,0,,,,,,,,2,3,0
70 REM N$(X)
71 DATA"NORTH","SOUTH","EAST","WEST","UP","DOWN"
72 DATA"BED","CHAIR","TABLE","PILLOW","THRONE","SCEPTER","GRAIL","MURAL"
73 DATA"BUNK","ARMOR","SWORD","SHIELD","MACE","SPEARS","OIL","DRAWBRIDGE"
74 DATA"TROLL","DRAWBRIDGE LEVER","SPELL BOOK","EYE OF NEWT","CAULDRON"
75 DATA"RING","SPELL"
76 REM L(X)
77 DATA10,10,10,10,10,10
78 DATA1,1,1,1,2,2,2,2,3,3,3,3,4,4,4,5,5,5,6,6,6,10,10
79 REM R$(X)
80 DATA"KINGS BEDROOM","THRONE ROOM","KNIGHTS QUARTERS","ARMORY"
81 DATA"DRAWBRIDGE ROOM","SORCERER'S ROOM"